home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / rexx / printlabel.mbrx < prev    next >
Text File  |  1996-06-28  |  1KB  |  75 lines
  1. /*
  2. ** PrintLabel.mbrx Version 1.0
  3. ** By Tom Bampton
  4. **
  5. ** © 1996 Eden Software
  6. **
  7. ** This little script prints out address labels
  8. */
  9.  
  10. /* Line Feed character to print new lines */
  11. LF='0a'x
  12.  
  13. /*
  14.    The path to MegaBook in case it isn't running
  15. */
  16. MegaBookPath = 'MegaBook3:MegaBook'
  17.  
  18. /* Check if MegaBook is running, if not, run it */
  19. if ~show('P', 'MEGABOOK.01') then do
  20.     address command
  21.     'run >nil: ' MegaBookPath
  22.     /* Wait for the ARexx port */
  23.     do 5 while ~show('P', 'MEGABOOK.01')
  24.         'sys:rexxc/waitforport MEGABOOK.01'
  25.     end
  26. end
  27.  
  28. address 'MEGABOOK.01'
  29. options results
  30.  
  31. /* Get the details for the label */
  32. Get_Entry 1
  33. name = result
  34. Get_Entry 2
  35. addr = result
  36. Get_Entry 3
  37. blnk = result
  38. Get_Entry 4
  39. town = result
  40. Get_Entry 5
  41. county = result
  42. Get_Entry 6
  43. pcode = result
  44.  
  45. /* Now print the label, missing the empty fields */
  46. if name ~= '' then do
  47.     Print name
  48.     Print LF
  49. end
  50. if addr ~= '' then do
  51.     Print addr
  52.     Print LF
  53. end
  54. if blnk ~= '' then do
  55.     Print blnk
  56.     Print LF
  57. end
  58. if town ~= '' then do
  59.     Print town
  60.     Print LF
  61. end
  62. if county ~= '' then do
  63.     Print county
  64.     Print "          "
  65. end
  66. /* Just for a laff, we'll bring up a requester if there's no postcode */
  67. if pcode ~= '' then do
  68.     Print pcode
  69.     end
  70. else do
  71.     Request 'Come on, think of those poor postmen and women!' LF 'Please use the postcode!' Gads 'Sorry, wont happen again'    
  72. end
  73. Print LF
  74.  
  75.